﻿
Partial Class Paginas_AtencionCompras
    Inherits System.Web.UI.Page
    'Private oDsArticulosPedidos As DataSet
    'Private dvGrillaPedido As DataView

    'Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '    Try
    '        If Not Session("oDsArticulosPedidosAL") Is Nothing Then
    '            oDsArticulosPedidos = Session("oDsArticulosPedidosAL")
    '        End If
    '        If Not Session("dvGrillaPedido") Is Nothing Then
    '            dvGrillaPedido = Session("dvGrillaPedido")
    '        End If

    '        If Not Me.IsPostBack Then
    '            Session.Timeout = 1000

    '            tblTextosAdicionales.Style.Item("display") = "none"
    '            tblDocumentosSustento.Style.Item("display") = "none"
    '            tblAtencionRequerimiento.Style.Item("display") = "none"
    '            tblExistenciaBodegas.Style.Item("display") = "none"

    '            fnRecuperarValoresURL()
    '            If Not fnCargarRegion() Then Exit Sub

    '            lblCompania.Text = Me.hidCompania.Value
    '            lblUsuario.Text = Me.hidUsuario.Value
    '            Me.lblJobFunction.Text = Me.hidJobFunction.Value
    '            Me.txtNumeroRequerimiento.Text = hidRequerimiento.Value
    '            Me.divBodega.Visible = True
    '            fnCargarNombreCampos()
    '            If Me.hidTaskStatus.Value = 3 Then
    '                fnEstablecerPantallaEstadoCompletado()

    '            End If

    '            If Not fnCargarRequerimiento() Then Exit Sub
    '            If Not fnCargarDetalleRequerimiento() Then Exit Sub
    '            If Not fnCargarDetallePedidoRequerimiento() Then Exit Sub

    '            fnCargarGrillaArticulos()
    '            fnCargarGrillaPedidos()
    '        End If
    '        fnCargarEventos()
    '        lblMensaje.Text = ""
    '        lblMensajeExistencias.Text = ""
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try
    'End Sub
    'Private Sub fnEstablecerPantallaEstadoCompletado()
    '    Me.txtMotivo.Enabled = False
    '    Me.txtMotivo.CssClass = "CajasTextoInactivas"
    '    Me.txtCampo1.Enabled = False
    '    Me.txtCampo1.CssClass = "CajasTextoInactivas"
    '    Me.txtCampo2.Enabled = False
    '    Me.txtCampo2.CssClass = "CajasTextoInactivas"
    '    Me.txtCampo3.Enabled = False
    '    Me.txtCampo3.CssClass = "CajasTextoInactivas"
    '    Me.txtCampo4.Enabled = False
    '    Me.txtCampo4.CssClass = "CajasTextoInactivas"
    '    Me.txtCampo5.Enabled = False
    '    Me.txtCampo5.CssClass = "CajasTextoInactivas"
    '    Me.imgAgregar.Enabled = False
    '    Me.imgCancelar.Enabled = False
    '    Me.imgEliminar.Enabled = False
    '    Me.imgGuardar.Enabled = False
    '    Me.btnComentarioLinea.Enabled = False
    '    Me.btnAsignarArticulo.Enabled = False
    '    Me.btnGrabar.Enabled = False
    '    imgCerrarLinea.Enabled = False
    '    Me.btnComentario.Enabled = False

    'End Sub
    'Private Sub fnCargarEventos()
    '    Me.btnGrabar.Attributes.Add("onclick", "if (!fnRaiseServerEvent_Valid(true, 'Está seguro que desea enviar el formulario?')) return false;")
    '    Me.btnComentario.Attributes.Add("onclick", "if (!fnRaiseClientEvent(false)) return false; return MostrarComentarioCabecera();")
    '    Me.btnTrazabilidad.Attributes.Add("onclick", "if (!fnRaiseClientEvent(false)) return false; return MostrarTrazabilidad()")
    '    Me.btnCerrar.Attributes.Add("onclick", "if (!fnRaiseClientEvent(false)) return false; return Cerrar()")

    '    Me.imgAgregar.Attributes.Add("onclick", "if (!fnRaiseServerEvent(false)) return false; return true;")
    '    Me.imgGuardar.Attributes.Add("onclick", "if (!fnRaiseServerEvent_Valid(false)) return false;")
    '    Me.imgCancelar.Attributes.Add("onclick", "if (!fnRaiseServerEvent(false)) return false; return true;")
    '    fnDesHabilitarMensajeEliminar()

    '    Me.txtCampo1.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")
    '    Me.txtCampo2.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")
    '    Me.txtCampo3.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")
    '    Me.txtCampo4.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")
    '    Me.txtCampo5.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event)")

    '    hypMostrarTextosAdicionales.NavigateUrl = "javascript:MostrarTextosAdicionales();"
    '    hypMostrarDocumentosSustento.NavigateUrl = "javascript:MostrarDocumentosSustento();"
    '    hypMostrarExistencia.NavigateUrl = "javascript:MostrarExistencia();"
    '    hypAtencionRequerimiento.NavigateUrl = "javascript:AtencionRequerimiento();"
    'End Sub

    'Private Sub fnRecuperarValoresURL()
    '    'Dim oConfig As New AppSettingsReader
    '    Dim sError As String
    '    Dim sDominio As String
    '    Dim oNegCompania As New srvNegCompania.srvNegCompania
    '    Dim oNegReCamposGlobales As New srvNegReCamposGlobales.srvNegReCamposGlobales
    '    If oNegReCamposGlobales.fnObtenerProceso(1, "", 1, hidProceso.Value, sError) = False Then
    '        lblMensaje.Text = "Ocurrio un problema al obtener el nombre del proceso."
    '    End If

    '    hidCompania.Value = Request.Form("Compania")
    '    'Me.hidCentroCosto.Value = Request.Form("CentroCosto")
    '    Me.hidRequerimiento.Value = Request.Form("Requerimiento")
    '    Me.hidEstacion.Value = Request.Form("Paso")
    '    Me.hidIncidente.Value = Request.Form("Incidente")
    '    Me.hidIncidentePadre.Value = Request.Form("IncidentePadre")

    '    Me.hidUsuarioUltimus.Value = Request.Form("Usuario")
    '    If oNegCompania.fnObtenerDominio(1, fnObtenerDominioUltimus(hidUsuarioUltimus.Value), sDominio, sError) = False Then
    '        lblMensaje.Text = "Ocurrio un problema al obtener el Dominio." + sError
    '    End If
    '    hidUsuario.Value = fnObtenerUsuarioConNuevoDominio(sDominio, hidUsuarioUltimus.Value)

    '    Me.hidJobFunction.Value = Request.Form("JobFunction")
    '    Me.hidTaskId.Value = Request.Form("TaskId")
    '    Me.hidTaskStatus.Value = Request.Form("TaskStatus")
    '    Me.hidJobFunctionGroup.Value = Request.Form("JobFunctionGroup")
    '    Dim sDepartament As String = ""
    '    Me.hdnCorrelativo.Value = Request.Form("CorrelativoMando")
    '    'If Request.Form("Departament") Is Nothing Then
    '    'Me.lblMensaje.Text = "No se está enviando la región correctamente."
    '    ' Else
    '    '  sDepartament = Request.Form("Departament")
    '    '  Dim sRegion As String
    '    '  sRegion = sDepartament.Substring(sDepartament.IndexOf(CC_CHAR_ESP) + 1)
    '    ' lblRegion.Text = sRegion
    '    ' End If


    'End Sub

    'Private Function fnCargarRegion() As Boolean
    '    Dim oCompania As New srvNegCompania.srvNegCompania
    '    Dim ds As DataSet, bOk As Boolean, sError As String
    '    bOk = oCompania.ListarConDescripcion(3, 0, Me.hidCompania.Value, ds, sError)
    '    If Not bOk Then
    '        lblMensaje.Text = sError
    '        Return False
    '        Exit Function
    '    End If
    '    Dim abreviatura As String = ds.Tables(0).Rows(0).Item(C_DG_COMPANIA_ABREVIATURA)
    '    Dim oOrgChart As New srvOrgChart.srvOrgChart
    '    Dim sRegion As String
    '    bOk = oOrgChart.fnObtenRegionUsuario(abreviatura, "GL_COMPRADORES", hidUsuarioUltimus.Value, sRegion, sError)

    '    If Not bOk Then
    '        lblMensaje.Text = sError
    '        Return False
    '        Exit Function
    '    End If
    '    lblRegion.Text = sRegion
    '    Return True
    'End Function

    'Private Sub fnCargarGrillaArticulos()
    '    Me.dtgGrilla.DataSource = oDsArticulosPedidos.Tables(0)
    '    Me.dtgGrilla.DataBind()

    'End Sub
    'Private Sub fnCargarNombreCampos()
    '    Dim rsError As String
    '    Dim rsCampos(5) As String

    '    Dim oNegReCamposGlobales As New srvNegReCamposGlobales.srvNegReCamposGlobales

    '    If oNegReCamposGlobales.fnListar(1, "", rsCampos, rsError) Then
    '        Me.lblCampo1.Text = rsCampos(0)
    '        Me.lblCampo2.Text = rsCampos(1)
    '        Me.lblCampo3.Text = rsCampos(2)
    '        Me.lblCampo4.Text = rsCampos(3)
    '        Me.lblCampo5.Text = rsCampos(4)
    '    Else
    '        lblMensaje.Text = rsError
    '    End If

    'End Sub
    'Private Function fnCargarDetalleRequerimiento() As Boolean
    '    Try
    '        Dim bOk As Boolean = False
    '        Dim dr As DataRow
    '        Dim sError As String
    '        Dim requerimiento As Integer
    '        Dim oDsRequerimiento As DataSet
    '        'Dim centroCosto As String
    '        Dim oNegDetalleRequerimiento As New srvNegDetalleRequerimiento.srvNegDetalleRequerimiento
    '        requerimiento = Convert.ToInt64(hidRequerimiento.Value)
    '        'centroCosto = Me.hidCentroCosto.Value.ToString
    '        bOk = oNegDetalleRequerimiento.fnObtener(3, "", hidCompania.Value, "", requerimiento, 0, hidJobFunctionGroup.Value, oDsArticulosPedidos, sError)
    '        If Not bOk Then
    '            lblMensaje.Text = sError
    '        Else
    '            Dim dt As DataTable
    '            dt = oDsArticulosPedidos.Tables(0)
    '            dt.Columns.Add(C_DG_ARTICULOS_CANTIDAD_POR_ATENDER)
    '            For Each dr In dt.Rows
    '                dr.Item(C_DG_ARTICULOS_CANTIDAD_POR_ATENDER) = FormatNumber(0, 2)
    '            Next
    '            Session("oDsArticulosPedidosAL") = oDsArticulosPedidos
    '        End If
    '        Return bOk
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try
    'End Function

    'Private Function fnCargarDetallePedidoRequerimiento() As Boolean
    '    Try
    '        Dim bOk As Boolean = False
    '        Dim sError As String
    '        Dim requerimiento As Integer
    '        Dim oDsRequerimiento As DataSet
    '        'Dim centroCosto As String
    '        Dim oNegDetalleRequerimientoxAccion As New srvNegDetalleRequerimientoxAccion.srvNegDetalleRequerimientoxAccion
    '        requerimiento = Convert.ToInt64(hidRequerimiento.Value)
    '        'centroCosto = Me.hidCentroCosto.Value.ToString
    '        bOk = oNegDetalleRequerimientoxAccion.fnObtener(3, "", hidCompania.Value, "", requerimiento, 0, 0, Me.hidJobFunctionGroup.Value, oDsRequerimiento, sError)

    '        If Not bOk Then
    '            lblMensaje.Text = sError
    '        Else
    '            Dim dt As DataTable
    '            dt = oDsRequerimiento.Tables(0)
    '            oDsRequerimiento.Tables.Remove(dt)
    '            dt.TableName = "DetalleRequerimientoXAccion"

    '            oDsArticulosPedidos = Session("oDsArticulosPedidosAL")

    '            oDsArticulosPedidos.Tables.Add(dt)

    '            Dim dr As New DataRelation("CabeceraxDetalle", _
    '                         oDsArticulosPedidos.Tables(0).Columns(C_DG_ARTICULOS_CONSECUTIVO), _
    '                         oDsArticulosPedidos.Tables(1).Columns(C_DG_PEDIDOS_CONSECUTIVO))

    '            oDsArticulosPedidos.Relations.Add(dr)

    '            Session("oDsArticulosPedidosAL") = oDsArticulosPedidos
    '        End If
    '        Return bOk
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try
    'End Function

    'Private Sub fnCargarGrillaPedidos()
    '    Try
    '        Dim i As Integer
    '        i = dtgGrilla.SelectedIndex
    '        If i <> -1 Then
    '            Dim dv As DataView = oDsArticulosPedidos.Tables(0).DefaultView
    '            Dim drv As DataRowView = dv(i)
    '            dvGrillaPedido = drv.CreateChildView("CabeceraxDetalle")
    '            dtgGrillaPedido.DataSource = dvGrillaPedido
    '            Session("dvGrillaPedido") = dvGrillaPedido
    '            dtgGrillaPedido.DataBind()
    '        Else
    '            lblMensaje.Text = C_MSG_CV_CARGAR_GRILLA_ABASTECIMIENTO
    '        End If
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try
    'End Sub

    'Private Function fnCargarRequerimiento() As Boolean
    '    Try
    '        Dim prioridad As String
    '        Dim bOk As Boolean = False
    '        Dim sError As String
    '        Dim requerimiento As Integer
    '        Dim oDsRequerimiento As DataSet
    '        Dim oNegRequerimiento As New srvNegRequerimiento.srvNegRequerimiento
    '        requerimiento = Convert.ToInt64(hidRequerimiento.Value)
    '        bOk = oNegRequerimiento.fnObtener(1, "", hidCompania.Value, requerimiento, oDsRequerimiento, sError)
    '        If Not bOk Then
    '            lblMensaje.Text = sError
    '        Else
    '            Dim drRequerimiento As DataRow = oDsRequerimiento.Tables(0).Rows(0)
    '            Me.txtFechaRegistro.Text = drRequerimiento.Item(C_CB_FECHA_REQUERIMIENTO)
    '            Me.txtFechaRequerida.Text = drRequerimiento.Item(C_DG_ARTICULOS_FECHA_REQUERIMIENTO)
    '            Me.txtMotivo.Text = drRequerimiento.Item(C_CB_FECHA_MOTIVO)
    '            prioridad = drRequerimiento.Item(C_CB_PRIORIDAD)
    '            Me.txtPrioridad.Text = IIf(prioridad = 1, C_PR_BAJA, IIf(prioridad = 2, C_PR_MEDIA, C_PR_ALTA))
    '            Me.txtNumeroRequerimiento.Text = hidRequerimiento.Value
    '            Me.txtCampo1.Text = drRequerimiento.Item(C_CB_CAMPO1)
    '            Me.txtCampo2.Text = drRequerimiento.Item(C_CB_CAMPO2)
    '            Me.txtCampo3.Text = drRequerimiento.Item(C_CB_CAMPO3)
    '            Me.txtCampo4.Text = drRequerimiento.Item(C_CB_CAMPO4)
    '            Me.txtCampo5.Text = drRequerimiento.Item(C_CB_CAMPO5)
    '        End If
    '        Return bOk
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try
    'End Function

    ''Private Sub fnCargarComboFormaAbastecimiento(ByVal dr As DataRow)
    ''    Dim dt As New DataTable
    ''    Dim fila As DataRow
    ''    Dim dtcolumn1 As New DataColumn("idDocumento")
    ''    Dim dtcolumn2 As New DataColumn("Documento")
    ''    dt.Columns.Add(dtcolumn1)
    ''    dt.Columns.Add(dtcolumn2)

    ''    If dr.Item(C_DG_ARTICULOS_TIPOARTICULO) = C_ID_TIPO_ARTICULO_INVENTARIABLE Then
    ''        fila = dt.NewRow
    ''        fila.Item(0) = "0"
    ''        fila.Item(1) = "Despacho"
    ''        dt.Rows.Add(fila)
    ''    End If
    ''    fila = dt.NewRow
    ''    fila.Item(0) = "1"
    ''    fila.Item(1) = "Adquisición"
    ''    dt.Rows.Add(fila)

    ''    Me.cmbFormaAbastemiento.DataSource = dt
    ''    cmbFormaAbastemiento.DataTextField = "Documento"
    ''    cmbFormaAbastemiento.DataValueField = "idDocumento"
    ''    cmbFormaAbastemiento.DataBind()
    ''End Sub

    'Private Sub fnPrepararFilaSeleccionada()

    '    Dim _item As DataGridItem = dtgGrilla.Items(dtgGrilla.SelectedIndex)
    '    'Dim btnComentarioLinea As ImageButton = _item.FindControl("btnComentarioLinea")
    '    Dim lblArticulo As Label = _item.FindControl("lblArticulo1")
    '    Dim lblUnidad As Label = _item.FindControl("lblUnidad1")
    '    Dim imgTipoRequerimiento As System.Web.UI.WebControls.Image = _item.FindControl("imgTipoRequerimiento")

    '    '[EVENTOS]



    '    Dim btnAsignarArticulo_onclick As String = _
    '         String.Format("if (!fnRaiseServerEvent(false)) return false; return MostrarDetalleArticulos('{0}','{1}','{2}',{3});", lblArticulo.ClientID, lblUnidad.Text, imgTipoRequerimiento.ClientID, dtgGrilla.SelectedIndex)
    '    btnAsignarArticulo.Attributes.Add("onclick", btnAsignarArticulo_onclick)


    '    Dim btnComentarioLinea_onClick As String = _
    '        String.Format("if (!fnRaiseServerEvent(false)) return false; return MostrarComentario({0});", dtgGrilla.SelectedIndex)
    '    btnComentarioLinea.Attributes.Add("onclick", btnComentarioLinea_onClick)


    '    Me.hidMotivoCierre.Value = oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_MOTIVO_CIERRE)

    '    Dim pnInhabilitar As Integer
    '    If oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_ABREV_ESTADO) = C_ESTADO_DETALLE_CERRADO Then
    '        pnInhabilitar = 1
    '    Else
    '        pnInhabilitar = 0
    '    End If


    '    Dim imgCerrarLinea_onClick As String = _
    '        String.Format("if (!fnRaiseServerEvent(false)) return false; return MostrarMotivoCierre({0});", pnInhabilitar)
    '    imgCerrarLinea.Attributes.Add("onclick", imgCerrarLinea_onClick)

    '    '[VALIDATORS]

    'End Sub
    'Private Sub fnPrepararFilaSeleccionadaDetalle()
    '    If dtgGrillaPedido.EditItemIndex = -1 Then Exit Sub
    '    Try


    '        Dim drGrillaPedido As DataRow = Me.dvGrillaPedido.Item(dtgGrillaPedido.EditItemIndex).Row
    '        Dim _item As DataGridItem = dtgGrillaPedido.Items(dtgGrillaPedido.EditItemIndex)

    '        Dim txtCantidadSolicitada As TextBox = _item.FindControl("txtCantidadSolicitada")
    '        Dim txtBodega As TextBox = _item.FindControl("txtBodega")
    '        '[EVENTOS]

    '        Dim txtCantidadSolicitada_onBlur As String = _
    '                 String.Format("javascript:txtCantidadPedida_onBlur('{0}');", txtCantidadSolicitada.ClientID)
    '        txtCantidadSolicitada.Attributes.Add("onBlur", txtCantidadSolicitada_onBlur)

    '        Dim txtCantidadSolicitada_onkeypress As String = _
    '           "javascript:IngresoSoloDecimalEnLinea(event)"
    '        txtCantidadSolicitada.Attributes.Add("onkeypress", txtCantidadSolicitada_onkeypress)

    '        Dim txtBodega_onKeyUp As String = _
    '                   String.Format("javascript:return MostrarDetalleBodega('{0}','{1}');", txtBodega.ClientID, Me.hdnArticulo.Value)
    '        txtBodega.Attributes.Add("onKeyUp", txtBodega_onKeyUp)

    '        txtBodega.Attributes.Add("onkeypress", "javascript:IngresoSoloCarPermitidos(event);")

    '        If Me.dtgGrillaPedido.SelectedIndex <> -1 Then
    '            Dim imgEliminar_onclick As String
    '            imgEliminar_onclick = "if (!fnRaiseServerEvent(true,'¿Está seguro que desea eliminar el registro?')) return false;" '"javascript:return ConfirmacionEliminacion()"
    '            Me.imgEliminar.Attributes.Add("onclick", imgEliminar_onclick)
    '        End If


    '        'If hidEsNuevo.Value = 1 Then
    '        '    Dim imgCancelar_onclick As String
    '        '    imgCancelar_onclick = "javascript:return ConfirmacionEliminacion()"
    '        '    Me.imgCancelar.Attributes.Add("onclick", imgCancelar_onclick)
    '        'End If

    '        '[VALIDATORS]

    '        Dim sArticuloExistente As String
    '        sArticuloExistente = Convert.ToString(oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_IND_ARTICULO_EXISTENTE))

    '        Dim rfvBodega As RequiredFieldValidator = _item.FindControl("rfvBodega")
    '        If (drGrillaPedido(C_DG_PEDIDOS_TIPOARTICULO) <> C_ID_TIPO_ARTICULO_INVENTARIABLE) Or sArticuloExistente = "0" Then
    '            txtBodega.Text = ""
    '            txtBodega.Visible = False
    '            rfvBodega.Enabled = False
    '        Else

    '            txtBodega.Visible = True
    '            rfvBodega.Enabled = True
    '            rfvBodega.Text = "1."
    '            rfvBodega.ErrorMessage = "1." + " Debe ingresar una bodega"
    '        End If

    '    Catch ex As Exception
    '        Response.Write(ex.Message)
    '    End Try

    'End Sub


    'Private Sub btnCerrar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btncerrar.Click
    '    Session("oDsArticulosPedidosAL") = Nothing
    'End Sub


    'Private Sub btnGrabar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btngrabar.Click
    '    Try
    '        If Me.dtgGrillaPedido.EditItemIndex <> -1 Then Exit Sub
    '        If Not Page.IsValid Then Exit Sub

    '        Dim bOk As Boolean
    '        Dim sError As String
    '        Dim proceso As String
    '        Dim ds As DataSet
    '        Dim oNegRequerimiento As New srvNegRequerimiento.srvNegRequerimiento

    '        Dim bTerminado As Integer
    '        bOk = oNegRequerimiento.fnActualizarRequerimiento_AtencionCompra(1, "", hidCompania.Value, Me.lblRegion.Text, Convert.ToInt64(Me.txtNumeroRequerimiento.Text), Convert.ToDateTime(Me.txtFechaRequerida.Text), Convert.ToDateTime(Me.txtFechaRegistro.Text), Me.txtPrioridad.Text, Me.txtMotivo.Text, System.DateTime.Today, Me.hidUsuario.Value, Me.txtCampo1.Text, Me.txtCampo2.Text, Me.txtCampo3.Text, Me.txtCampo4.Text, Me.txtCampo5.Text, bTerminado, oDsArticulosPedidos, sError)

    '        If Not bOk Then
    '            lblMensaje.Text = sError
    '        Else

    '            Dim oUltimusInt As New UltimusInt.UltIntegration
    '            Dim nIncident As Integer
    '            Dim oArrVariables(7) As UltimusInt.Variable

    '            Dim obj1 As Object() = {Me.txtNumeroRequerimiento.Text}
    '            oArrVariables(0) = New UltimusInt.Variable
    '            oArrVariables(0).strVariableName = "V_nRequerimiento"
    '            oArrVariables(0).objVariableValue = obj1

    '            Dim obj2 As Object() = {hidCompania.Value}
    '            oArrVariables(1) = New UltimusInt.Variable
    '            oArrVariables(1).strVariableName = "V_sCompania"
    '            oArrVariables(1).objVariableValue = obj2

    '            'Dim obj3 As Object() = {Me.hidUsuario.Value}
    '            'oArrVariables(2) = New UltimusInt.Variable
    '            'oArrVariables(2).strVariableName = "V_sUsuarioAprobacionJefatura"
    '            'oArrVariables(2).objVariableValue = obj3

    '            Dim obj3 As Object() = {Me.txtCampo5.Text}
    '            oArrVariables(2) = New UltimusInt.Variable
    '            oArrVariables(2).strVariableName = "V_sCampo5"
    '            oArrVariables(2).objVariableValue = obj3


    '            Dim obj4 As Object() = {Me.txtCampo1.Text}
    '            oArrVariables(3) = New UltimusInt.Variable
    '            oArrVariables(3).strVariableName = "V_sCampo1"
    '            oArrVariables(3).objVariableValue = obj4

    '            Dim obj5 As Object() = {Me.txtCampo2.Text}
    '            oArrVariables(4) = New UltimusInt.Variable
    '            oArrVariables(4).strVariableName = "V_sCampo2"
    '            oArrVariables(4).objVariableValue = obj5

    '            Dim obj6 As Object() = {Me.txtCampo3.Text}
    '            oArrVariables(5) = New UltimusInt.Variable
    '            oArrVariables(5).strVariableName = "V_sCampo3"
    '            oArrVariables(5).objVariableValue = obj6

    '            Dim obj7 As Object() = {Me.txtCampo4.Text}
    '            oArrVariables(6) = New UltimusInt.Variable
    '            oArrVariables(6).strVariableName = "V_sCampo4"
    '            oArrVariables(6).objVariableValue = obj7

    '            Dim obj8 As Object() = {Me.lblRegion.Text}
    '            oArrVariables(7) = New UltimusInt.Variable
    '            oArrVariables(7).strVariableName = "V_sRegionComprador"
    '            oArrVariables(7).objVariableValue = obj8


    '            proceso = Me.hidProceso.Value
    '            If bTerminado Then
    '                bOk = oUltimusInt.SubmitTask(hidTaskId.Value, hidUsuarioUltimus.Value, "Requerimiento " + Me.txtNumeroRequerimiento.Text, hidIncidente.Value, oArrVariables, sError)

    '            Else
    '                RegisterClientScriptBlock("Mensaje", "<script language='javascript'> alert('Aún quedan líneas sin abastecer completamente'); </script>")
    '            End If
    '            If Not bOk Then
    '                lblMensaje.Text = C_MSG_CV_ENVIAR_INCIDENTE + " con usuario: " + hidUsuarioUltimus.Value + " " + sError
    '            Else
    '                lblMensaje.Text = ""
    '                Session("oDsArticulosPedidosAL") = Nothing
    '                RegisterClientScriptBlock("Cerrar", "<script language='javascript'> { window.parent.close();} </script>")
    '            End If
    '        End If
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try
    'End Sub

    'Private Sub fnCargaGrillaBodegas(ByVal drArticulo As DataRow)
    '    Dim ws As New srvNegExistenciaBodega.srvNegExistenciaBodega
    '    Dim sError As String
    '    Dim bOk As Boolean
    '    Dim oDst As DataSet
    '    Dim dt As New DataTable
    '    If drArticulo.Item(C_DG_ARTICULOS_IND_ARTICULO_EXISTENTE) = C_ESTADO_HABILITADO Then

    '        bOk = ws.fnListar(1, hidCompania.Value, drArticulo.Item(C_DG_ARTICULOS_ARTICULO), "", oDst, sError)
    '        If Not bOk Then

    '            lblMensaje.Text = drArticulo.Item(C_DG_ARTICULOS_ARTICULO) & "Ocurrió un Error al intentar cargar las bodegas, si el problema persiste contacte con soporte."
    '            Exit Sub
    '        End If
    '        If oDst.Tables(0).Rows.Count = 0 Then
    '            Me.lblMensajeExistencias.Text = C_MSG_EXIS_ES_ARTICULO_NUEVO
    '        End If
    '        fnCargarGrillaBodegas(oDst.Tables(0))
    '    Else
    '        oDst = New DataSet
    '        oDst.Tables.Add(dt)
    '        fnCargarGrillaBodegas(oDst.Tables(0))
    '        Me.lblMensajeExistencias.Text = C_MSG_EXIS_NO_ES_BIEN

    '    End If
    'End Sub

    'Private Sub fnCargarGrillaBodegas(ByVal dt As DataTable)
    '    dtgGrillaBodegas.DataSource = dt
    '    dtgGrillaBodegas.DataBind()
    'End Sub

    'Private Sub fnCalcularFilasHijas()
    '    Dim dv As DataView = oDsArticulosPedidos.Tables(0).DefaultView
    '    Dim drv As DataRowView = dv(dtgGrilla.SelectedIndex)
    '    dv = drv.CreateChildView("CabeceraxDetalle")
    '    Me.hidFilasHijas.Value = dv.Count()
    'End Sub

    'Private Sub imgAgregar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgagregar.Click
    '    Try
    '        Dim oArticulo As New srvNegArticulo.srvNegArticulo
    '        If Me.dtgGrillaPedido.EditItemIndex <> -1 Then Exit Sub

    '        If Me.dtgGrilla.SelectedIndex <> -1 Then
    '            If oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_ABREV_ESTADO) = C_ESTADO_DETALLE_CERRADO Then
    '                lblMensaje.Text = C_MSG_CV_LINEA_CERRADA
    '                Exit Sub
    '            End If

    '            If oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_CANTIDAD_FALTANTE) = 0 Then
    '                lblMensaje.Text = C_MSG_CV_LINEA_ABASTECIDA
    '                Exit Sub
    '            End If

    '            If oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_TIPOARTICULO) = C_ID_TIPO_ARTICULO_NOMBRE_NINGUNO Then
    '                lblMensaje.Text = C_MSG_CV_ARTICULO_NO_CREADO
    '                Exit Sub
    '            End If
    '            With oDsArticulosPedidos
    '                Dim drArticulo As DataRow
    '                drArticulo = .Tables(1).NewRow

    '                If oDsArticulosPedidos.Tables(0).Rows(Me.dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_TIPOARTICULO) = C_ID_TIPO_ARTICULO_NOMBRE_INVENTARIABLE Then
    '                    drArticulo.Item(C_DG_PEDIDOS_DOCUMENTO) = C_CAD_OPER_SOL_COMPRA
    '                Else
    '                    drArticulo.Item(C_DG_PEDIDOS_DOCUMENTO) = C_CAD_OPER_REQ
    '                End If
    '                drArticulo.Item(C_DG_PEDIDOS_TIPOARTICULO) = oDsArticulosPedidos.Tables(0).Rows(Me.dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_TIPOARTICULO)
    '                drArticulo.Item(C_DG_PEDIDOS_ARTICULO) = oDsArticulosPedidos.Tables(0).Rows(Me.dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_ARTICULO)
    '                drArticulo.Item(C_DG_PEDIDOS_NUMERO_DOCUMENTO) = ""
    '                drArticulo.Item(C_DG_PEDIDOS_CANTIDAD) = "0"
    '                drArticulo.Item(C_DG_PEDIDOS_FECHA) = Date.Now.ToShortDateString
    '                drArticulo.Item(C_DG_PEDIDOS_UNIDAD) = oDsArticulosPedidos.Tables(0).Rows(Me.dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_UNIDAD_MEDIDA)
    '                drArticulo.Item(C_DG_PEDIDOS_CONSECUTIVO) = oDsArticulosPedidos.Tables(0).Rows(Me.dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_CONSECUTIVO)
    '                drArticulo.Item(C_DG_PEDIDOS_CENTROCOSTO) = oDsArticulosPedidos.Tables(0).Rows(Me.dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_CENTROCOSTO)
    '                drArticulo.Item(C_DG_PEDIDOS_ESTADO) = ""
    '                .Tables(1).Rows.Add(drArticulo)
    '                dtgGrillaPedido.EditItemIndex = dvGrillaPedido.Count - 1
    '                dtgGrillaPedido.SelectedIndex = dtgGrillaPedido.EditItemIndex
    '            End With
    '            'Session("C_DG_ARTICULOS_COMENTARIO") = ""
    '            hidEsNuevo.Value = 1
    '            hidGrillaPedidoDeshabilitada.Value = 0
    '            Session("oDsArticulosPedidosAL") = oDsArticulosPedidos
    '            fnCargarGrillaPedidos()
    '            fnPrepararFilaSeleccionadaDetalle()
    '            fnCalcularFilasHijas()
    '        Else
    '            Me.lblMensaje.Text = C_MSG_DG_ARTICULOS_AL_SELECCION
    '        End If
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try
    'End Sub




    'Private Sub fnIncrementaCantidadPendiente(ByVal item As DataGridItem)
    '    Dim drArticulo As DataRow = oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedItem.ItemIndex)
    '    Dim drDetalle = Me.dvGrillaPedido.Item(item.ItemIndex).Row
    '    drArticulo(C_DG_ARTICULOS_CANTIDAD_POR_ATENDER) = drArticulo(C_DG_ARTICULOS_CANTIDAD_POR_ATENDER) - Convert.ToDouble(drDetalle(C_DG_PEDIDOS_CANTIDAD))
    '    drArticulo(C_DG_ARTICULOS_CANTIDAD_FALTANTE) = drArticulo(C_DG_ARTICULOS_CANTIDAD_FALTANTE) + Convert.ToDouble(drDetalle(C_DG_PEDIDOS_CANTIDAD))
    '    Session("oDsArticulosPedidosAL") = oDsArticulosPedidos
    '    fnCargarGrillaArticulos()
    'End Sub



    'Private Function fnValidarFilaSeleccionada(ByVal cantidadPedida As String, ByVal drArticulo As DataRow, ByVal drDetalle As DataRow) As Boolean
    '    Dim _item As DataGridItem = dtgGrillaPedido.Items(dtgGrillaPedido.EditItemIndex)

    '    Dim txtCantidadSolicitada As TextBox = _item.FindControl("txtCantidadSolicitada")
    '    Dim txtBodega As TextBox = _item.FindControl("txtBodega")

    '    Dim bOk As Boolean = True
    '    Dim rsError As String
    '    Dim odst As DataSet

    '    Dim oBodega As New srvNegExistenciaBodega.srvNegExistenciaBodega
    '    Dim odsArticulo As DataSet

    '    If CDbl(txtCantidadSolicitada.Text) <= 0 Then
    '        lblMensaje.Text = C_MSG_CV_CANTIDAD_MAYOR_CERO
    '        bOk = False
    '    End If

    '    If bOk And drArticulo(C_DG_ARTICULOS_CANTIDAD_FALTANTE) + drDetalle(C_DG_PEDIDOS_CANTIDAD) < Convert.ToDouble(cantidadPedida) Then
    '        lblMensaje.Text = C_MSG_CV_CANTIDAD_MAYOR_PENDIENTE
    '        bOk = False
    '    End If

    '    If drArticulo.Item(C_DG_ARTICULOS_TIPOARTICULO) = C_ID_TIPO_ARTICULO_INVENTARIABLE Then
    '        If bOk And (Not txtBodega.Text = "") Then
    '            bOk = oBodega.fnListar(1, hidCompania.Value, drArticulo.Item(C_DG_ARTICULOS_ARTICULO), txtBodega.Text, odst, rsError)
    '            If bOk Then
    '                If odst.Tables(0).Rows.Count = 0 Then
    '                    Me.lblMensaje.Text = rsError + "La bodega no existe para este artículo"
    '                    bOk = False
    '                End If
    '            Else
    '                Me.lblMensaje.Text = rsError
    '                bOk = False
    '            End If
    '        End If
    '    End If

    '    Return bOk

    'End Function



    'Private Sub dtgGrillaPedido_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dtggrillapedido.ItemDataBound
    '    Try
    '        'If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.SelectedItem Or e.Item.ItemType = ListItemType.EditItem Then
    '        Dim lblNumero As Label = e.Item.FindControl("lblNumeroDocumento1")
    '        If lblNumero.Text <> "" Then
    '            e.Item.BackColor = Color.Bisque
    '        End If

    '        'End If
    '    Catch ex As Exception
    '    End Try
    'End Sub



    'Private Sub dtgGrilla_ItemCreated(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dtggrilla.ItemCreated

    '    If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.SelectedItem Then
    '        e.Item.Attributes.Add("onmouseover", "this.style.backgroundColor='beige';this.style.cursor='hand'")
    '        e.Item.Attributes.Add("onmouseout", "this.style.backgroundColor='white';")

    '        Dim oConfig As New AppSettingsReader
    '        If oConfig.GetValue("NetFrameworkNameControl", GetType(System.String)) = "1" Then
    '            e.Item.Attributes.Add("onclick", "javascript:__doPostBack('" & "dtgGrilla$" & "_ctl" & (e.Item.ItemIndex + 2).ToString & "$_ctl0','')")
    '        Else
    '            Dim cadena As String
    '            If e.Item.ItemIndex + 2 > 9 Then
    '                cadena = ""
    '            Else
    '                cadena = "0"
    '            End If
    '            cadena = "ctl" & cadena & (e.Item.ItemIndex + 2).ToString
    '            e.Item.Attributes.Add("onclick", "javascript:__doPostBack('" & "dtgGrilla$" & cadena & "$ctl00','')")
    '        End If

    '    End If
    'End Sub

    'Private Sub dtgGrilla_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtggrilla.SelectedIndexChanged
    '    Try
    '        If Me.dtgGrillaPedido.EditItemIndex <> -1 Then
    '            dtgGrilla.SelectedIndex = Me.hidIndiceSeleccionado.Value
    '            Exit Sub
    '        End If

    '        Me.hidIndiceSeleccionado.Value = dtgGrilla.SelectedIndex
    '        fnPrepararFilaSeleccionada()
    '        fnCargarGrillaArticulos()
    '        Page.Validate()
    '        If Not Page.IsValid Then Exit Sub
    '        Dim i As Integer = dtgGrilla.SelectedIndex

    '        If i = -1 Then Exit Sub

    '        fnCargarVariablesOcultas(dtgGrilla.SelectedIndex)
    '        'fnCargarComboFormaAbastecimiento(oDsArticulosPedidos.Tables(0).Rows(i))
    '        fnCargarGrillaPedidos()

    '        Me.lblDetalleRequerimientoxAcción.Text = "Atención del Requerimiento"
    '        Me.lblDetalleRequerimientoxAcción.Text = Me.lblDetalleRequerimientoxAcción.Text & " Línea: " & Convert.ToString(oDsArticulosPedidos.Tables(0).Rows(i).Item(C_DG_ARTICULOS_CONSECUTIVO))
    '        Me.lblDetalleRequerimientoxAcción.Text = Me.lblDetalleRequerimientoxAcción.Text + "  " + ", Item: " + oDsArticulosPedidos.Tables(0).Rows(i).Item(C_DG_ARTICULOS_DESCRIPCION)

    '        Me.hdnArticulo.Value = oDsArticulosPedidos.Tables(0).Rows(i).Item(C_DG_ARTICULOS_ARTICULO)

    '        If Me.divBodega.Visible = True Then
    '            fnCargaGrillaBodegas(oDsArticulosPedidos.Tables(0).Rows(i))
    '        End If
    '        fnCalcularFilasHijas()
    '        Session("C_DG_ARTICULOS_COMENTARIO") = oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_COMENTARIO)
    '        dtgGrilla.SelectedItem.Attributes.Item("onmouseover") = "this.style.cursor='hand'"
    '        dtgGrilla.SelectedItem.Attributes.Remove("onmouseout")
    '    Catch ex As Exception
    '        lblMensaje.Text = C_MSG_ERROR_INESPERADO
    '        CreateLogFiles()
    '        ErrorLog(Server.MapPath("Logs/ErrorLog"), ex.Message + " " + ex.StackTrace)

    '    End Try
    'End Sub


    ''Private Sub lnkMostrarExistencia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ''    If lnkMostrarExistencia.Text = "Mostrar" Then
    ''        lnkMostrarExistencia.Text = "Ocultar"
    ''        tblExistenciaBodegas.Visible = True
    ''    Else
    ''        lnkMostrarExistencia.Text = "Mostrar"
    ''        tblExistenciaBodegas.Visible = False
    ''    End If
    ''End Sub

    ''Private Sub lnkMostrarTextosAdicionales_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ''    If lnkMostrarTextosAdicionales.Text = "Mostrar" Then
    ''        lnkMostrarTextosAdicionales.Text = "Ocultar"
    ''        tblTextosAdicionales.Visible = True
    ''    Else
    ''        lnkMostrarTextosAdicionales.Text = "Mostrar"
    ''        tblTextosAdicionales.Visible = False
    ''    End If
    ''End Sub

    ''Private Sub lnkMostrarDocumentosSustento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ''    If lnkMostrarDocumentosSustento.Text = "Mostrar" Then
    ''        lnkMostrarDocumentosSustento.Text = "Ocultar"
    ''        tblDocumentosSustento.Visible = True
    ''    Else
    ''        lnkMostrarDocumentosSustento.Text = "Mostrar"
    ''        tblDocumentosSustento.Visible = False
    ''    End If
    ''End Sub
    ''Private Sub lnkAtencionRequerimiento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    ''    If lnkAtencionRequerimiento.Text = "Mostrar" Then
    ''        lnkAtencionRequerimiento.Text = "Ocultar"
    ''        tblAtencionRequerimiento.Visible = True
    ''    Else
    ''        lnkAtencionRequerimiento.Text = "Mostrar"
    ''        tblAtencionRequerimiento.Visible = False
    ''    End If
    ''End Sub

    'Private Sub dtgGrilla_ItemDataBound(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dtggrilla.ItemDataBound
    '    'If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
    '    '    'e.Item.Cells(5).
    '    'End If

    '    Dim TipoReq As String = ""
    '    Try
    '        Dim lbl As Label = e.Item.FindControl("lblTipoArticulo1")
    '        TipoReq = lbl.Text
    '    Catch ex As Exception

    '    End Try

    '    Try
    '        Dim lbl As Label = e.Item.FindControl("lblTipoArticulo2")
    '        TipoReq = lbl.Text
    '    Catch ex As Exception

    '    End Try

    '    If TipoReq <> "" Then
    '        Dim img As System.Web.UI.WebControls.Image = e.Item.FindControl("imgTipoRequerimiento")
    '        If TipoReq = "Activo Fijo" Then
    '            img.ImageUrl = "Imagenes/ActivoFijo.bmp"
    '        ElseIf TipoReq = "Servicio" Then
    '            img.ImageUrl = "Imagenes/Servicio.bmp"
    '        ElseIf TipoReq = C_ID_TIPO_ARTICULO_NOMBRE_NINGUNO Then
    '            img.ImageUrl = "Imagenes/Ninguno.bmp"
    '        ElseIf TipoReq = C_ID_TIPO_ARTICULO_NOMBRE_NO_INVENTARIABLE Then
    '            img.ImageUrl = "Imagenes/NoBien.bmp"
    '        Else
    '            img.ImageUrl = "Imagenes/Bien.bmp"
    '        End If
    '        img.AlternateText = TipoReq
    '    End If

    'End Sub


    'Private Sub dtgGrillaPedido_ItemCreated(ByVal sender As System.Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles dtggrillapedido.ItemCreated
    '    If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.SelectedItem Then
    '        e.Item.Attributes.Add("onmouseover", "bkAnterior=this.style.backgroundColor; this.style.backgroundColor='beige';this.style.cursor='hand'")
    '        e.Item.Attributes.Add("onmouseout", "this.style.backgroundColor=bkAnterior;")
    '        'NetFrameworkNameControl(e)
    '        'Dim oConfig As New AppSettingsReader
    '        'If oConfig.GetValue("NetFrameworkNameControl", GetType(System.String)) = "1" Then
    '        '    e.Item.Attributes.Add("onclick", "javascript:__doPostBack('" & "dtgGrillaPedido$" & "_ctl" & (e.Item.ItemIndex + 2).ToString & "$_ctl2','')")
    '        'Else
    '        '    e.Item.Attributes.Add("onclick", "javascript:__doPostBack('" & "dtgGrillaPedido$" & "ctl0" & (e.Item.ItemIndex + 2).ToString & "$ctl02','')")
    '        'End If

    '        Dim oConfig As New AppSettingsReader
    '        If oConfig.GetValue("NetFrameworkNameControl", GetType(System.String)) = "1" Then
    '            e.Item.Attributes.Add("onclick", "javascript:__doPostBack('" & "dtgGrillaPedido$" & "_ctl" & (e.Item.ItemIndex + 2).ToString & "$_ctl2','')")
    '        Else
    '            Dim cadena As String
    '            If e.Item.ItemIndex + 2 > 9 Then
    '                cadena = ""
    '            Else
    '                cadena = "0"
    '            End If
    '            cadena = "ctl" & cadena & (e.Item.ItemIndex + 2).ToString
    '            e.Item.Attributes.Add("onclick", "javascript:__doPostBack('" & "dtgGrillaPedido$" & cadena & "$ctl02','')")
    '        End If


    '    End If
    'End Sub
    'Private Sub ActualizaEstadosGrillaArticulos()
    '    Dim oDrDetalleReq As DataRow

    '    oDrDetalleReq = oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex)

    '    'If oDrDetalleReq(C_DG_ARTICULOS_CANTIDAD_FALTANTE) = 0 Then
    '    '    oDrDetalleReq(C_DG_ARTICULOS_ABREV_ESTADO) = C_ESTADO_DETALLE_CERRADO
    '    '    oDrDetalleReq(C_DG_ARTICULOS_ESTADO) = C_ESTADO_DETALLE_PALABRA_CERRADO
    '    'Else
    '    '    If oDrDetalleReq(C_DG_ARTICULOS_CANTIDAD_FALTANTE) = oDrDetalleReq(C_DG_ARTICULOS_CANTIDAD_AUTORIZA) Then
    '    '        oDrDetalleReq(C_DG_ARTICULOS_ABREV_ESTADO) = C_ESTADO_DETALLE_ESPERA
    '    '        oDrDetalleReq(C_DG_ARTICULOS_ESTADO) = C_ESTADO_DETALLE_PALABRA_ESPERA
    '    '    Else
    '    '        oDrDetalleReq(C_DG_ARTICULOS_ABREV_ESTADO) = C_ESTADO_DETALLE_PENDIENTE
    '    '        oDrDetalleReq(C_DG_ARTICULOS_ESTADO) = C_ESTADO_DETALLE_PALABRA_PENDIENTE
    '    '    End If
    '    'End If
    'End Sub

    'Private Sub imgGuardar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgguardar.Click
    '    If dtgGrillaPedido.EditItemIndex = -1 Then
    '        lblMensaje.Text = C_MSG_RFV_LINEA_EDITABLE
    '        Exit Sub
    '    End If


    '    Dim _item As DataGridItem = dtgGrillaPedido.Items(dtgGrillaPedido.EditItemIndex)

    '    Dim drDetalle As DataRow

    '    Dim drArticulo As DataRow = oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedItem.ItemIndex)

    '    drDetalle = Me.dvGrillaPedido.Item(dtgGrillaPedido.EditItemIndex).Row

    '    Dim txtCantidadPedida As TextBox = _item.FindControl("txtCantidadSolicitada")
    '    Dim txtBodega As TextBox = _item.FindControl("txtBodega")

    '    If fnValidarFilaSeleccionada(txtCantidadPedida.Text, drArticulo, drDetalle) Then
    '        drArticulo(C_DG_ARTICULOS_CANTIDAD_POR_ATENDER) = FormatNumber(drArticulo(C_DG_ARTICULOS_CANTIDAD_POR_ATENDER) + (Convert.ToDouble(txtCantidadPedida.Text) - drDetalle(C_DG_PEDIDOS_CANTIDAD)), 2)
    '        drArticulo(C_DG_ARTICULOS_CANTIDAD_FALTANTE) = FormatNumber(drArticulo(C_DG_ARTICULOS_CANTIDAD_FALTANTE) - (Convert.ToDouble(txtCantidadPedida.Text) - drDetalle(C_DG_PEDIDOS_CANTIDAD)), 2)
    '        drDetalle(C_DG_PEDIDOS_CANTIDAD) = FormatNumber(txtCantidadPedida.Text, 2)
    '        drDetalle(C_DG_PEDIDOS_BODEGA) = txtBodega.Text
    '        dtgGrillaPedido.EditItemIndex = -1
    '        dtgGrillaPedido.SelectedIndex = -1
    '        Me.hidGrillaPedidoDeshabilitada.Value = 1
    '        ActualizaEstadosGrillaArticulos()
    '        Session("oDsArticulosPedidosAL") = oDsArticulosPedidos
    '        fnDesHabilitarMensajeEliminar()
    '        fnCargarGrillaArticulos()
    '        fnCargarGrillaPedidos()

    '    End If

    'End Sub

    'Private Sub imgCancelar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgcancelar.Click
    '    If dtgGrillaPedido.EditItemIndex = -1 Then
    '        lblMensaje.Text = C_MSG_RFV_LINEA_EDITABLE
    '        Exit Sub
    '    End If
    '    If hidEsNuevo.Value = 1 Then
    '        fnIncrementaCantidadPendiente(dtgGrillaPedido.Items(dtgGrillaPedido.EditItemIndex))
    '        'oDsArticulosPedidos.Tables(1).Rows(dtgGrillaPedido.EditItemIndex).Delete()
    '        Me.dvGrillaPedido.Delete(dtgGrillaPedido.EditItemIndex)
    '    End If
    '    fnDesHabilitarMensajeEliminar()
    '    dtgGrillaPedido.EditItemIndex = -1
    '    dtgGrillaPedido.SelectedIndex = -1
    '    Me.hidGrillaPedidoDeshabilitada.Value = 1
    '    Session("oDsArticulosPedidosAL") = oDsArticulosPedidos
    '    fnCargarGrillaPedidos()
    '    fnCalcularFilasHijas()
    'End Sub

    'Private Sub imgEliminar_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgeliminar.Click

    '    If dtgGrillaPedido.EditItemIndex <> -1 And _
    '            dtgGrillaPedido.EditItemIndex <> dtgGrillaPedido.SelectedIndex Then
    '        Exit Sub
    '    End If

    '    If dtgGrillaPedido.EditItemIndex = -1 Then
    '        lblMensaje.Text = C_MSG_RFV_LINEA_EDITABLE
    '        Exit Sub
    '    End If


    '    If Me.dvGrillaPedido.Item(dtgGrillaPedido.EditItemIndex).Row.Item(C_DG_PEDIDOS_NUMERO_DOCUMENTO) <> "" Then Exit Sub
    '    fnIncrementaCantidadPendiente(dtgGrillaPedido.Items(dtgGrillaPedido.EditItemIndex))
    '    Me.dvGrillaPedido.Delete(dtgGrillaPedido.EditItemIndex)

    '    fnDesHabilitarMensajeEliminar()
    '    dtgGrillaPedido.EditItemIndex = -1
    '    dtgGrillaPedido.SelectedIndex = -1
    '    Me.hidGrillaPedidoDeshabilitada.Value = 1
    '    Session("oDsArticulosPedidosAL") = oDsArticulosPedidos
    '    fnCargarGrillaPedidos()
    '    fnCalcularFilasHijas()
    'End Sub

    'Private Sub dtgGrillaPedido_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtggrillapedido.SelectedIndexChanged
    '    If dtgGrillaPedido.EditItemIndex <> -1 Then Exit Sub

    '    dtgGrillaPedido.SelectedItem.Attributes.Item("onmouseover") = "this.style.cursor='hand'"
    '    dtgGrillaPedido.SelectedItem.Attributes.Remove("onmouseout")
    '    If Me.hidTaskStatus.Value <> 3 Then
    '        fnModificarGrilla()
    '    End If

    'End Sub
    'Private Sub fnModificarGrilla()

    '    If dtgGrillaPedido.EditItemIndex <> -1 Then Exit Sub
    '    If dtgGrillaPedido.SelectedIndex = -1 Then Exit Sub

    '    If Me.dvGrillaPedido.Item(dtgGrillaPedido.SelectedIndex).Row.Item(C_DG_PEDIDOS_NUMERO_DOCUMENTO) <> "" Then Exit Sub

    '    Page.Validate()
    '    If Not Page.IsValid Then Exit Sub
    '    dtgGrillaPedido.EditItemIndex = dtgGrillaPedido.SelectedIndex
    '    fnCargarGrillaPedidos()
    '    hidEsNuevo.Value = 0
    '    hidGrillaPedidoDeshabilitada.Value = 0
    '    fnPrepararFilaSeleccionadaDetalle()

    'End Sub


    'Private Sub fnCargarVariablesOcultas(ByVal index As Integer)
    '    hidEsArticuloExistente.Value = Me.oDsArticulosPedidos.Tables(0).Rows(index).Item(C_DG_ARTICULOS_IND_ARTICULO_EXISTENTE)
    'End Sub


    'Private Sub imgCerrarLinea_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles imgcerrarlinea.Click
    '    If dtgGrilla.SelectedIndex = -1 Then
    '        lblMensaje.Text = C_MSG_RFV_LINEA
    '        Exit Sub
    '    End If
    '    If Me.dtgGrillaPedido.EditItemIndex <> -1 Then
    '        lblMensaje.Text = C_MSG_CV_LINEA_DETALLE_ABIERTA
    '        Exit Sub
    '    End If

    '    If oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_ABREV_ESTADO) = C_ESTADO_DETALLE_CERRADO Then
    '        'lblMensaje.Text = C_MSG_CV_LINEA_CERRADA
    '        Exit Sub
    '    End If
    '    Dim oDrDetalleReq As DataRow
    '    oDrDetalleReq = oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex)
    '    oDrDetalleReq(C_DG_ARTICULOS_ABREV_ESTADO) = C_ESTADO_DETALLE_CERRADO
    '    oDrDetalleReq(C_DG_ARTICULOS_ESTADO) = C_ESTADO_DETALLE_PALABRA_CERRADO
    '    oDrDetalleReq(C_DG_ARTICULOS_MOTIVO_CIERRE) = hidMotivoCierre.Value
    '    Session("oDsArticulosPedidosAL") = oDsArticulosPedidos
    '    dtgGrilla.SelectedIndex = -1
    '    fnCargarGrillaArticulos()
    'End Sub

    'Private Sub btnComentarioLinea_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btncomentariolinea.Click
    '    If dtgGrilla.SelectedIndex <> -1 Then
    '        oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_COMENTARIO) = Session("C_DG_ARTICULOS_COMENTARIO")
    '        Session("oDsArticulosPedidosAL") = oDsArticulosPedidos
    '    Else
    '        lblMensaje.Text = C_MSG_RFV_LINEA
    '    End If
    'End Sub

    'Private Sub fnDesHabilitarMensajeEliminar()
    '    Dim imgEliminar_onclick As String
    '    imgEliminar_onclick = "if (!fnRaiseClientEvent(false)) return false;"
    '    Me.imgEliminar.Attributes.Add("onclick", imgEliminar_onclick)
    'End Sub


    'Private Sub btnAsignarArticulo_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnasignararticulo.Click

    '    If dtgGrilla.SelectedIndex = -1 Then
    '        lblMensaje.Text = C_MSG_RFV_LINEA
    '    Else

    '        If Me.hidEsArticuloExistente.Value = "1" Then
    '            lblMensaje.Text = C_MSG_CV_NO_ES_NUEVO
    '        Else
    '            Dim dv As DataView = oDsArticulosPedidos.Tables(0).DefaultView
    '            Dim drv As DataRowView = dv(dtgGrilla.SelectedIndex)
    '            dv = drv.CreateChildView("CabeceraxDetalle")
    '            If dv.Count() = 0 Then
    '                If Me.hidArticulo.Value <> "" Then
    '                    oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_ARTICULO) = Me.hidArticulo.Value
    '                    oDsArticulosPedidos.Tables(0).Rows(dtgGrilla.SelectedIndex).Item(C_DG_ARTICULOS_TIPOARTICULO) = hidTipoArticulo.Value
    '                    Session("oDsArticulosPedidosAL") = oDsArticulosPedidos
    '                    fnCargarGrillaArticulos()

    '                End If
    '            Else
    '                lblMensaje.Text = C_MSG_CV_LINEA_TIENE_ITEMS
    '            End If

    '        End If
    '    End If

    'End Sub

    'Private Sub btnComentario_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btncomentario.Click

    'End Sub
End Class
